home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / mb26544.lsp < prev    next >
Text File  |  1998-03-15  |  6KB  |  151 lines
  1. ;=============265.44 WINKELSTELLFUß ohne VERSTELLUNG
  2.  
  3. (EAITDBL "0026544")
  4. (EAITmsg "mb_mld10" "\n" "002" nil) (princ "........") (princ EAITnrx) (princ "\n")
  5. (princ)
  6.  
  7. (defun C:26544D1 (/ P1 W)
  8.    (EAITDBL "0026544")
  9.    (princ (strcat "\n\n" EAITbez1 " " EAITbez2))
  10.    (EAITvari)
  11.    (EAITvars)
  12.    (setvar "ORTHOMODE" 0)
  13.    (EAITbpt nil nil nil)
  14.    (setq P1 (getpoint))
  15.    (if (= P1 nil)(setq P1 (EAITrpt)))
  16.    (setvar "OSMODE" 0)
  17.    (EAITmsg "mb_mld10" "\n" "008" nil)           ;Konstruktionsrichtung
  18.    (setq W (getangle P1))
  19.    (cond
  20.      ((= W nil) (progn
  21.                     (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  22.                     (command EAITege (strcat EAITpfn "26544d1") P1 "" "" EAITofkei pause)
  23.                     (setq W (+ 135 (EAITbig (EAITbw))))
  24.                 )
  25.      )
  26.      ((and (>= (EAITbig W)   0)(< (EAITbig W)  90)) (progn  (command EAITege (strcat EAITpfn "26544d2") P1 "" "" EAITofkei "")(setq W 45)))
  27.      ((and (>= (EAITbig W)  90)(< (EAITbig W) 180)) (progn  (command EAITege (strcat EAITpfn "26544d1") P1 "" "" EAITofkei "")(setq W 135)))
  28.      ((and (>= (EAITbig W) 180)(< (EAITbig W) 270)) (progn  (command EAITege (strcat EAITpfn "26544d2") P1 "" "" EAITofkei "180")(setq W 225)))
  29.      (T                                     (progn  (command EAITege (strcat EAITpfn "26544d1") P1 "" "" EAITofkei "180")(setq W 315)))
  30.    )
  31.  
  32.  
  33.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (EAITgib W) 5)  "" "" ""
  34.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  35.    )
  36.  
  37.    (EAITvarz2)
  38.    (princ)
  39. )
  40.  
  41.  
  42. (defun C:26544D2 (/ P1 W)
  43.    (EAITDBL "0026544")
  44.    (princ (strcat "\n\n" EAITbez1 " " EAITbez2))
  45.    (EAITvari)
  46.    (EAITvars)
  47.    (setvar "ORTHOMODE" 0)
  48.    (EAITbpt nil nil nil)
  49.    (setq P1 (getpoint))
  50.    (if (= P1 nil)(setq P1 (EAITrpt)))
  51.    (setvar "OSMODE" 0)
  52.    (EAITmsg "mb_mld10" "\n" "008" nil)           ;Konstruktionsrichtung
  53.    (setq W (getangle P1))
  54.    (cond
  55.      ((= W nil) (progn
  56.                     (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  57.                     (command EAITege (strcat EAITpfn "26544d1") P1 "" "" EAITofkei pause)
  58.                     (setq W (+ 135 (EAITbig (EAITbw))))
  59.                 )
  60.      )
  61.      ((and (>= (EAITbig W)   0)(< (EAITbig W)  90)) (progn (command EAITege (strcat EAITpfn "26544d1") P1 "" "" EAITofkei "270")(setq W 45)))
  62.      ((and (>= (EAITbig W)  90)(< (EAITbig W) 180)) (progn (command EAITege (strcat EAITpfn "26544d2") P1 "" "" EAITofkei "90")(setq W 135)))
  63.      ((and (>= (EAITbig W) 180)(< (EAITbig W) 270)) (progn (command EAITege (strcat EAITpfn "26544d1") P1 "" "" EAITofkei "90")(setq W 215)))
  64.      (T                                     (progn (command EAITege (strcat EAITpfn "26544d2") P1 "" "" EAITofkei "270")(setq W 315)))
  65.    )
  66.  
  67.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (EAITgib W) 5)  "" "" ""
  68.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  69.    )
  70.  
  71.    (EAITvarz2)
  72.    (princ)
  73. )
  74.  
  75.  
  76.  
  77.  
  78.  
  79. (defun C:26544S1 (/ P0 P1 H W)
  80.    (EAITDBL "0026544")
  81.    (princ (strcat "\n\n" EAITbez1 " " EAITbez2))
  82.    (EAITvari)
  83.    (EAITvars)
  84.    (EAITbpt nil nil nil)
  85.    (setq P1 (getpoint))
  86.    (if (= P1 nil)(setq P1 (EAITrpt)))
  87.    (setvar "OSMODE" 0)
  88.    (EAITmsg "mb_mld10" "\n" "008" nil)           ;Konstruktionsrichtung
  89.    (setq P0 (getpoint P1))
  90.    (initget (+ 2 4))
  91.    (EAITmsg "mb_mld10" "\n" "025" nil)(EAITmsg "mb_mld10" nil "026" " ")   ;Höhe: <0> 
  92.    (setq H (getdist))
  93.    (if (= H nil)(setq H 0))
  94.    (while (> H 70)
  95.           (EAITmsg "mb_mld10" "\n\n  " "021" nil)(EAITmsg "mb_mld10" nil "036" " ")   ;Ungültige Laenge:  max. 70mm
  96.           (initget (+ 2 4))
  97.            (EAITmsg "mb_mld10" "\n" "025" nil)(EAITmsg "mb_mld10" nil "026" " ")   ;Höhe: <0>
  98.           (setq H (getdist))
  99.           (if (= H nil)(setq H 0))
  100.    )
  101.    (if (> (car P0)(car P1))
  102.       (progn (command EAITege (strcat EAITpfn "26544s2") (list (car P1)(- (cadr P1) H)) "" "" "")(setq W 45))
  103.       (progn (command EAITege (strcat EAITpfn "26544s1") (list (car P1)(- (cadr P1) H)) "" "" "")(setq W 135))
  104.    )
  105.  
  106.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (EAITbp)(EAITgib W) 5)  "" "" ""
  107.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  108.    )
  109.  
  110.    (EAITvarz2)
  111.    (princ)
  112. )
  113.  
  114.  
  115.  
  116. (defun C:26544V1 (/ P0 P1 H W)
  117.    (EAITDBL "0026544")
  118.    (princ (strcat "\n\n" EAITbez1 " " EAITbez2))
  119.    (EAITvari)
  120.    (EAITvars)
  121.    (EAITbpt nil nil nil)
  122.    (setq P1 (getpoint))
  123.    (if (= P1 nil)(setq P1 (EAITrpt)))
  124.    (setvar "OSMODE" 0)
  125.    (EAITmsg "mb_mld10" "\n" "008" nil)           ;Konstruktionsrichtung
  126.    (setq P0 (getpoint P1))
  127.    (initget (+ 2 4))
  128.    (EAITmsg "mb_mld10" "\n" "025" nil)(EAITmsg "mb_mld10" nil "026" " ")   ;Höhe: <0> 
  129.    (setq H (getdist))
  130.    (if (= H nil)(setq H 0))
  131.    (while (> H 70)
  132.           (EAITmsg "mb_mld10" "\n\n  " "021" nil)(EAITmsg "mb_mld10" nil "036" " ")   ;Ungültige Laenge:  max. 70mm
  133.           (initget (+ 2 4))
  134.           (EAITmsg "mb_mld10" "\n" "025" nil)(EAITmsg "mb_mld10" nil "026" " ")   ;Höhe: <0> 
  135.           (setq H (getdist))
  136.           (if (= H nil)(setq H 0))
  137.    )
  138.    (if (> (car P0)(car P1))
  139.       (progn (command EAITege (strcat EAITpfn "26544v1") (list (car P1)(- (cadr P1) H)) "" "" "")(setq W 45))
  140.       (progn (command EAITege (strcat EAITpfn "26544v1") (list (- (car P1)40)(- (cadr P1) H)) "" "" "")(setq W 45))
  141.    )
  142.  
  143.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (EAITbp)(EAITgib W) 5)  "" "" ""
  144.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  145.    )
  146.  
  147.    (EAITvarz2)
  148.    (princ)
  149. )
  150. (princ)
  151.